HAKERIS 11/HAKERIS 11.ISO/soft/development/Macromedia RoboHelp X5/RoboHelpOffice.exe/Data1.cab/_1F88DC574E6A402E8DECA655E8DC553C

Visual Basic Form | 1997-02-04 | 6.1 KB | 205 lines

VERSION 4.00
Begin VB.Form Form1
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "What's This Help Composer Tutorial"
   ClientHeight    =   5160
   ClientLeft      =   1365
   ClientTop       =   1680
   ClientWidth     =   5430
   Height          =   5850
   Left            =   1305
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5160
   ScaleWidth      =   5430
   ShowInTaskbar   =   0   'False
   Top             =   1050
   Width           =   5550
   Begin VB.CommandButton Command5
      Caption         =   "E&xit"
      Height          =   375
      Left            =   2040
      TabIndex        =   16
      Top             =   4560
      Width           =   1215
   End
   Begin VB.Frame Frame3
      Caption         =   "Change Text"
      Height          =   1335
      Left            =   240
      TabIndex        =   9
      Top             =   3000
      Width           =   4935
      Begin VB.TextBox Text1
         Height          =   285
         Left            =   2880
         Locked          =   -1  'True
         TabIndex        =   15
         Text            =   "No selection made"
         Top             =   720
         Width           =   1695
      End
      Begin VB.OptionButton Option4
         Caption         =   "Option &4"
         Height          =   375
         Left            =   1560
         TabIndex        =   13
         Top             =   840
         Width           =   975
      End
      Begin VB.OptionButton Option3
         Caption         =   "Option &3"
         Height          =   375
         Left            =   1560
         TabIndex        =   12
         Top             =   360
         Width           =   975
      End
      Begin VB.OptionButton Option2
         Caption         =   "Option &2"
         Height          =   375
         Left            =   360
         TabIndex        =   11
         Top             =   840
         Width           =   975
      End
      Begin VB.OptionButton Option1
         Caption         =   "Option &1"
         Height          =   375
         Left            =   360
         TabIndex        =   10
         Top             =   360
         Width           =   1095
      End
      Begin VB.Label Label4
         Caption         =   "Option selected:"
         Height          =   255
         Left            =   2880
         TabIndex        =   14
         Top             =   480
         Width           =   1695
      End
   End
   Begin VB.Frame Frame2
      Caption         =   "Change Colors"
      Height          =   1455
      Left            =   240
      TabIndex        =   3
      Top             =   1440
      Width           =   4935
      Begin VB.CommandButton Command4
         Caption         =   "&Yellow"
         Height          =   375
         Left            =   1560
         TabIndex        =   7
         Top             =   840
         Width           =   1095
      End
      Begin VB.CommandButton Command3
         Caption         =   "&Green"
         Height          =   375
         Left            =   1560
         TabIndex        =   6
         Top             =   360
         Width           =   1095
      End
      Begin VB.CommandButton Command2
         Caption         =   "&Red"
         Height          =   375
         Left            =   360
         TabIndex        =   5
         Top             =   840
         Width           =   1095
      End
      Begin VB.CommandButton Command1
         Caption         =   "&Blue"
         Height          =   375
         Left            =   360
         TabIndex        =   4
         Top             =   360
         Width           =   1095
      End
      Begin VB.Label Label3
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   1  'Fixed Single
         Height          =   855
         Left            =   2880
         TabIndex        =   8
         Top             =   360
         Width           =   1695
      End
   End
   Begin VB.Frame Frame1
      Height          =   1335
      Left            =   240
      TabIndex        =   0
      Top             =   0
      Width           =   4935
      Begin VB.Label Label2
         Caption         =   "This sample project will demonstrate how to assign specific Help text for each control displayed below."
         Height          =   495
         Left            =   120
         TabIndex        =   2
         Top             =   720
         Width           =   4575
      End
      Begin VB.Label Label1
         Caption         =   "Creating What's This Help for applications is a fast and easy way to explain each control and its functionality."
         Height          =   495
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   4695
      End
   End
   Begin VB.Menu file
      Caption         =   "&File"
      Begin VB.Menu nextform
         Caption         =   "&Next Form"
      End
      Begin VB.Menu exit
         Caption         =   "E&xit"
      End
   End
Attribute VB_Name = "Form1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub Command1_Click()
    Label3.BackColor = &HFF0000
End Sub
Private Sub Command2_Click()
    Label3.BackColor = &HFF&
End Sub
Private Sub Command3_Click()
    Label3.BackColor = &HFF00&
End Sub
Private Sub Command4_Click()
    Label3.BackColor = &HFFFF&
End Sub
Private Sub Command5_Click()
    End
End Sub
Private Sub exit_Click()
    End
End Sub
Private Sub form2_Click()
End Sub
Private Sub Label1_Click()
End Sub
Private Sub nextform_Click()
    Form2.Show
End Sub
Private Sub Option1_Click()
    Text1.Text = "Option 1"
End Sub
Private Sub Option2_Click()
    Text1.Text = "Option 2"
End Sub
Private Sub Option3_Click()
    Text1.Text = "Option 3"
End Sub
Private Sub Option4_Click()
    Text1.Text = "Option 4"
End Sub